home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / texte / texfontinst / inputs / fontinst.ini < prev    next >
Text File  |  1996-07-30  |  4KB  |  96 lines
  1. %%% ====================================================================
  2. %%%  @TeX-file{
  3. %%%     author          = "Alan Jeffrey",
  4. %%%     version         = "1.335",
  5. %%%     date            = "09 September 1994",
  6. %%%     time            = "20:20:42 BST",
  7. %%%     filename        = "fontinst.ini",
  8. %%%     address         = "School of Cognitive and Computing Sciences
  9. %%%                        University of Sussex
  10. %%%                        Brighton BN1 9QH
  11. %%%                        UK",
  12. %%%     FAX             = "+44 273 678188",
  13. %%%     email           = "alanje@cogs.susx.ac.uk",
  14. %%%     codetable       = "ISO/ASCII",
  15. %%%     keywords        = "AFM, virtual fonts, fonts, PostScript, TeX",
  16. %%%     supported       = "yes",
  17. %%%     abstract        = "These are the definitions required to run
  18. %%%                        fontinst under iniTeX.  See
  19. %%%                        fontinst.tex for more details, or CHANGES for 
  20. %%%                        the change log.", 
  21. %%%     package         = "fontinst",
  22. %%%     dependencies    = "none",
  23. %%%  }
  24. %%% ====================================================================
  25.  
  26. \chardef\active=13
  27.  
  28. \chardef\@ne=1
  29. \chardef\tw@=2
  30. \chardef\thr@@=3
  31. \chardef\sixt@@n=16
  32. \chardef\@cclv=255
  33. \mathchardef\@cclvi=256
  34. \mathchardef\@m=1000
  35. \mathchardef\@M=10000
  36. \mathchardef\@MM=20000
  37.  
  38. \count10=22 % allocates \count registers 23, 24, ...
  39. \count11=9 % allocates \dimen registers 10, 11, ...
  40. \count15=9 % allocates \toks registers 10, 11, ...
  41. \count16=-1 % allocates input streams 0, 1, ...
  42. \count17=-1 % allocates output streams 0, 1, ...
  43. \count20=255 % allocates insertions 254, 253, ...
  44. \countdef\insc@unt=20 % the insertion counter
  45. \countdef\allocationnumber=21 % the most recent allocation
  46. \countdef\m@ne=22 \m@ne=-1 % a handy constant
  47. \def\wlog{\immediate\write\m@ne} % write on log file (only)
  48.  
  49. \countdef\count@=255
  50. \dimendef\dimen@=0
  51.  
  52. \outer\def\newcount{\alloc@0\count\countdef\insc@unt}
  53. \outer\def\newdimen{\alloc@1\dimen\dimendef\insc@unt}
  54. \outer\def\newtoks{\alloc@5\toks\toksdef\@cclvi}
  55. \outer\def\newread{\alloc@6\read\chardef\sixt@@n}
  56. \outer\def\newwrite{\alloc@7\write\chardef\sixt@@n}
  57. \def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
  58.   \ch@ck#1#4#2% make sure there's still room
  59.   \allocationnumber=\count1#1%
  60.   \global#3#5=\allocationnumber
  61.   \wlog{\string#5=\string#2\the\allocationnumber}}
  62. \outer\def\newinsert#1{\global\advance\insc@unt by\m@ne
  63.   \ch@ck0\insc@unt\count
  64.   \ch@ck1\insc@unt\dimen
  65.   \ch@ck2\insc@unt\skip
  66.   \ch@ck4\insc@unt\box
  67.   \allocationnumber=\insc@unt
  68.   \global\chardef#1=\allocationnumber
  69.   \wlog{\string#1=\string\insert\the\allocationnumber}}
  70. \def\ch@ck#1#2#3{\ifnum\count1#1<#2%
  71.   \else\errmessage{No~room~for~a~new~#3}\fi}
  72.  
  73. \outer\def\newif#1{\count@\escapechar \escapechar\m@ne
  74.   \expandafter\expandafter\expandafter
  75.    \edef\@if#1{true}{\let\noexpand#1=\noexpand\iftrue}%
  76.   \expandafter\expandafter\expandafter
  77.    \edef\@if#1{false}{\let\noexpand#1=\noexpand\iffalse}%
  78.   \@if#1{false}\escapechar\count@} % the condition starts out false
  79. \def\@if#1#2{\csname\expandafter\if@\string#1#2\endcsname}
  80. {\uccode`1=`i \uccode`2=`f \uppercase{\gdef\if@12{}}} % `if' is required
  81.  
  82. \newdimen\p@ \p@=1pt % this saves macro space and time
  83. \newdimen\z@ \z@=0pt % can be used both for 0pt and 0
  84.  
  85. \def\space{ }
  86.  
  87. \let\bgroup={ \let\egroup=}
  88.  
  89. \def\loop#1\repeat{\def\body{#1}\iterate}
  90. \def\iterate{\body \let\next\iterate \else\let\next\relax\fi \next}
  91. \let\repeat=\fi % this makes \loop...\if...\repeat skippable
  92.  
  93. \def\supereject{\par\penalty-\@MM}
  94.  
  95. \endinput
  96.